home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / office / labelr / labels.exe / LABDATA3.TXT < prev    next >
Encoding:
Text File  |  1993-06-23  |  10.1 KB  |  132 lines

  1. \JUMP SET_LOGO
  2. \X LABSRL\WAIT LIM -1\READ K:LABDATA4.TXT
  3. \X SET_LOGO\ON KEY F10 JUMP REDO_ALL\+
  4. \IF LOGOXLOW<LOWXPRN\MOVE LOWXPRN TO LOGOXLOW\ENDIF\IF LOGOYLOW<LOWYPRN\MOVE LOWYPRN TO LOGOYLOW\ENDIF\+
  5. \MOVE HIGHXPRN TO LOGOXHGH\MOVE HIGHYPRN TO LOGOYHGH\+
  6. \IF LOGOXLOW>=LOGOXHGH\MOVE HIGHXPRN TO LOGOXHGH\ENDIF\IF LOGOYLOW>=LOGOYHGH\MOVE HIGHYPRN TO LOGOYHGH\ENDIF\+
  7. \IF #501>#503\MOVE #503 TO #501\CALL LOG_OFF\ENDIF\IF #502>#504\MOVE #504 TO #502\CALL LOG_OFF\ENDIF
  8. \BLA #320,0,639,#322\LOC #320,0\WID #321 DOTS\TEXT PLANE=1011
  9. You can add a logo or other graphic.  There are several ways you can do this including importing from other programs, or using one of our sample graphics.  To keep the current setting for a graphic, just press <RETURN>.
  10. \"
  11. \IF LOGO_ACTV='Y'
  12. Do you want to use the current graphic in it's current position? (Y to use the current image, N to change it's position or to eliminate it entirely.)
  13. \ELSE
  14. This label does not use a graphic.  Do you want to leave the label without a graphic? (Y to leave image as is, N to add a graphic.)
  15. \ENDIF
  16. \CALLM PR_LBL\ON ERROR JUMP LOGONO\CALLM SHOW_LOGO\X LOGONO\CLEAR ON ERROR
  17. \IF LABTYPE='5.25"'\CURS CRSR_XLOC,6,80,6\ELSE\CURS CRSR_XLOC,12,80,12\ENDIF\MOVE 'Y' TO #200\QUES #200,1,1\IF #200<>'Y' AND #200<>'N'\BEEP 78,79\JUMP SET_LOGO\ENDIF
  18. \IF #200<>LOGO_ACTV\MOVE 'Y' TO CHGD_LBL\ENDIF\IF #200='Y'\JUMP LOGO_OUT\ENDIF
  19. \IF #200='N'\IF LOGO_ACTV='N'\CALL LOG_OFF\MOVE 'X' TO LOGO_ACTV\MOVE 'Y' TO CHGD_LBL\JUMP REASK5\ENDIF\+
  20. \X HAVEALOGO\IF LOGO_ACTV<>'N'\LOC #320,0\BLA #320,0,639,#322\TEXT PLANE=1011
  21. Do you want a logo for this label? (Y to have a logo, N not to.)
  22. \CURS CRSR_XLOC,10,80,10\MOVE 'Y' TO #200\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 78,79\JUMP HAVEALOGO\ENDIF\IF #200='N'\CALL LOG_OFF\MOVE 'Y' TO CHGD_LBL\JUMP LOGO_OUT\ENDIF\+
  23. \X REASK5\LOC #320,0\BLA #320,0,639,#322\HEI 400\TEXT PLANE=1011
  24. There are four ways to add a graphic.
  25. \"
  26. First, you can 'drop in' one of our 'canned' logos like the diskette logo we use for LABELER's labels.
  27. \"
  28. Second, you can use our utility program to display any .PCX-format picture which is in a compatible screen mode.  (This is VGA screen mode #18, 640 dots by 480 dots, 16 colors.)
  29. \"
  30. Third, you can enter a command line which will execute your own image display program.  Your program must be able to leave the image on the screen after it exits, it must display the image in VGA mode 18, and it must be able to fit in available memory.
  31. \"
  32. Fourth, if you use our animation software you can create your logo with it.
  33. \"
  34. There you have it.  Pick a number (1, 2, 3 or 4.)
  35. \IF LABTYPE='3.5"'\CURS CRSR_XLOC+5,19,80,19\LINE 376,44,408,44,1\LINE 376,88,417,88,1\LINE 376,165,410,165,1\LINE 376,253,419,253,1
  36. \ELSE\CURS 42,10,80,10\LINE 0,32,32,32,1\LINE 0,65,41,65,1\LINE 0,98,33,98,1\LINE 0,142,43,142,1\ENDIF
  37. \MOVE '1' TO #200\QUES #200,1\IF #200<'1' OR #200>'4'\BLA #320,0,639,#322\BEEP 59,99\JUMP REASK5\ENDIF\MOVE 'Y' TO CHGD_LBL\ON KEY F1
  38. \MOVE #200 TO LOGO_FORGN\IF #200='1'\JUMP USE_CANNED\ELSE\IF #200='2'\JUMP USE_SHOW_PCX\ELSE\IF #200='3'\JUMP USE_CMDLN\ELSE\JUMP USE_P11_IMAGE\ENDIF
  39. \X LOGO_OUT\IF LOGO_ACTV<>'Y'\CALL LOG_OFF\ENDIF\JUMP LABSRL
  40. \X LOGOPOSI\LOC #320,0\BLA #320,0,639,#322\WID #321 DOTS\HEI 400 DOTS\TEXT PLANE=1011
  41. Now you should position the logo where you want it to print.  Use the cursor keys or your mouse to move the crosshairs to the upper left edge of the desired position.  You will be able to see what it will look like and change it if you like.
  42. \"
  43. If you are using the keyboard, use the number keys above the QWERTY portion of the keyboard to make the cursor move faster.  Set it back to 1 (above the "Q") to position yourself EXACTLY.  Click any mouse button or press <RETURN> when finished.
  44. \"
  45. NOTE #1: The horizontal axis will be rounded down to the nearest 8-dot boundary.
  46. \"
  47. NOTE #2:  Press the space bar NOW to skip this step and not have a logo at all.
  48. \ON KEY 14624 JUMP NOLOGO
  49. \CALLM PR_LBL\CALLM SHOW_DISKDATA\CALLM SHOW_LABELINFO\CALLM SHOW_COMPANY\CALLM SHOW_LOGO
  50. \IF LABTYPE='3.5"'\MOVE LOWYPRN+100 TO #200\ELSE\MOVE LOWYPRN+10 TO #200\ENDIF
  51. \CLEAR MOUSE\MOUSE L=LOGOXLOW,LOGOYLOW W=LOWXPRN+10,#200,HIGHXPRN-20,HIGHYPRN-20 ROUNDS=-1 FRAME=10,0\+
  52. \MOVE D TO LOGOXLOW\MOVE E TO LOGOYLOW
  53. \CALL DSPL_LBL
  54. \X RELOGO\LOC #320,0\BLA #320,0,639,#322\TEXT PLANE=1011
  55. Are you satisfied with this location or do you wish to reposition the logo image? (Y if satisfied, N if not)
  56. \CURS CRSR_XLOC,4,80,4\MOVE 'Y' TO #200\QUES #200,1\IF #200<>'Y' AND #200<>'N'\BEEP 55,99\JUMP RELOGO\ENDIF\+
  57. \IF #200='N'\JUMP LOGOPOSI\ENDIF
  58. \JUMP LABSRL
  59. \X NOLOGO\CLEAR ON ERRORS\CALL LOG_OFF\CALL DSPL_LBL\JUMP LABSRL
  60. \X REDO_ALL\IF LOGO_ACTV<>'Y' OR #505=' '\CALL LOG_OFF\ENDIF\WAIT LIM -1\READ K:LAB_DATA.TXT
  61. \X DSPL_LBL\CALLM PR_LBL\CALLM SHOW_DISKDATA\CALLM SHOW_LABELINFO\CALLM SHOW_COMPANY\ON ERROR JUMP NOLOGO\CALLM SHOW_LOGO\CLEAR ON ERROR\WID #321 DOTS\RETURN
  62. \X USE_CANNED\READ K:LOGOS_18.PIC\MOVE LOGO_NMBR TO U
  63. \X LOGOCHOOSE\CALLM PR_LBL\FRAME ?\CLEAR SHOW\BLA #320,0,639,#322\LOC #320,0\IF U>A\MOVE A TO U\ENDIF\IF U<1\MOVE 1 TO U\ENDIF\TEXT PLANE=1011
  64. Shown below is the current choice.  To view the next one, press <PG DN>.  To view the previous one, press <PG UP>.  When you find the one you want, press <RETURN>.
  65. \"
  66. Total frames in file, this frame:
  67. \X LOGPICK\IF LABTYPE='3.5"'\CURS 58,5,80,5\ELSE\CURS 8,3,80,3\ENDIF\DISPLAY A,U
  68. \IF LABTYPE='5.25"'\BLA 0,#301,639,412\ENDIF\BLA 376,300,639,479\SHOW 376,300,U\WAIT NOW -1
  69. \IF B=18688 OR B=18745\IF U>1\SUB 1 FROM U\ELSE\MOVE A TO U\ENDIF\IF B=20736 OR B=20787\IF U<A\ADD 1 TO U\ELSE\MOVE 1 TO U\ENDIF
  70. \IF B=7181\MOVE U TO LOGO_NMBR\ELSE\JUMP LOGPICK\ENDIF\JUMP LOGOPOSI
  71. \X USE_SHOW_PCX\BLA #320,0,639,#322\LOC #320,0\TEXT PLANE=1011
  72. Enter the name of the PCX image which you want to display with our PCX-format display utility.  Include all drive, path, etc. information in the standard format.
  73. \"
  74. Example:  D:\PCXPICS\MY-LOGO.PCX
  75. \CURSR CRSR_XLOC,7,80,11\MOVE ' ' TO #200\QUES #200,70\IF #200=' '\BLA #320,0,639,#322\BEEP 78,91\JUMP USE_SHOW_PCX\ENDIF\CLEAR SCREEN
  76. \BUILD #505= 'SHOW_PCX.EXE ',#200\ON ERROR JUMP BADSHOW\EXEC >(#505)\CLEAR ON ERROR\IF A=-1\JUMP BADSHOW\ELSE\IF A=0 AND C<>0\JUMP BADSHOW\ENDIF
  77. \X ISOLATE_LOGO\SAVE SCREEN\LOC #320,0\BLA #320,0,639,#322\HEI 400\TEXT PLANE=1011
  78. You now must mark the image's upper left and lower right boundaries.  Then you will locate the image in the label.  This process will be automated for future use.
  79. \"
  80. Use your mouse or the cursor arrows to move the cross-hair.  To move the cross-hair quickly when using the keyboard, press the numeric keys above the QWERTY portion of the keyboard.
  81. \"
  82. When you are close to the desired location set the movement to ONE (1) dot by pressing the one above the "Q".
  83. \"
  84. Note:  Piece will be shifted to the nearest 8-dot boundary on the horizontal axis.
  85. \"
  86. Press any key to set the upper left edge.
  87. \"
  88. Press <F2> to re-enter the logo information.
  89. \ON KEY F2 JUMP DROP_OUT\ON KEY F10 JUMP DROP_OUT_BYE
  90. \X WAIT1\WAIT NOW -1\IF F<>0\JUMP WAIT1\ENDIF\ON KEY F2\CLEAR MOUSE\RESTORE SCRE\MOUSE L=LOGO_XLORIG,LOGO_YLORIG\MOVE D TO LOGO_XLORIG\MOVE E TO LOGO_YLORIG
  91. \ON KEY F10 JUMP REDO_ALL\SAVE SCRE\LOC #320,0\BLA #320,0,639,#322\TEXT PLANE=1011
  92. Now just do the same thing to set the lower right boundary.  Press any key to begin...
  93. \X WAIT2\WAIT NOW -1\IF F<>0\JUMP WAIT2\ENDIF\CLEAR MOUSE\RESTORE SCREEN\MOUSE L=LOGO_XHORIG,LOGO_YHORIG\MOVE D TO LOGO_XHORIG\MOVE E TO LOGO_YHORIG
  94. \CLEAR PICS\FRAME LOGO_XLORIG,LOGO_YLORIG,LOGO_XHORIG-LOGO_XLORIG,LOGO_YHORIG-LOGO_YLORIG\MOVE 1 TO LOGO_NMBR
  95. \JUMP LOGOPOSI
  96. \X USE_CMDLN\BLA #320,0,639,#322\LOC #320,0\TEXT PLANE=1011
  97. Enter the command line exactly as you would enter it from DOS, EXCEPT:
  98. \"
  99. Be sure to include the extension, .EXE or .COM, even though from DOS this would be optional.
  100. \"
  101. Note:  Many picture display programs do not leave the image on the screen when they exit.  If you have trouble getting your image to display properly, you may want to consider converting it to .PCX format and then displaying it with our utility program.
  102. \"
  103. Example: E:PCTR.EXE MY-LOGO.GIF
  104. \IF LABTYPE='5.25"'\CURS CRSR_XLOC,8,80,9\LINE 430,10,475,10,1\ELSE\CURS CRSR_XLOC,13,80,15\LINE 545,22,590,22,1\ENDIF
  105. \MOVE #505 TO #200\QUES #200,70\IF #200=' '\BLA #320,0,639,#322\BEEP 78,61\JUMP USE_CMDLN\ENDIF
  106. \CLEAR SCREEN\MOVE #200 TO #505\CURS 0,25,80,25\WAIT LIM 0\QUES Q,0\WAIT LIM -1\ON ERROR JUMP BADFORGN\EXEC DOS>(#505)\CLEAR ON ERROR\IF A=-1\JUMP BADFORGN\ENDIF\JUMP ISOLATE_LOGO
  107. \X USE_P11_IMAGE\BLA #320,0,639,#322\LOC #320,0\TEXT PLANE=1011
  108. Enter the name of the P11 picture file.  File must ALREADY have been placed in the current directory.  Do not include the extention, which must be .PIC.
  109. \MOVE ' ' TO #505\CURSR CRSR_XLOC,4,80,4\MOVE ' ' TO #200\QUES #200,8\IF #200=' '\BLA #320,0,639,#322\BEEP 78,71\JUMP USE_P11_IMAGE\ENDIF\BUILD #505=#200,'.PIC'
  110. \ON ERROR JUMP BADP11RD\DOT 0,0,1\MOVE 2 TO Z\READ (#505)\CLEAR ON ERROR\DOT 0,0,?\IF A<>1\MOVE A TO Z\JUMP BADP11RD\ENDIF
  111. \MOVE 'Y' TO LOGO_ACTV\MOVE LOGO_NMBR TO U\IF U<1\MOVE 1 TO U\ENDIF\JUMP LOGOCHOOSE
  112. \X BADP11RD\SCREEN 0,0,17\BLA #320,0,639,#322\LOC #320,0\BEEP 129,62\CALL LOG_OFF\MOVE 'X' TO LOGO_ACTV\CALLM PR_LBL\TEXT PLANE=0100
  113. \IF Z=2
  114. That file was not found in the current directory.
  115. \ELSE
  116. The screen mode for that picture file is wrong (it must be mode 17, 640 by 480 dots, 2 colors.)
  117. \ENDIF
  118. \X BAD_RTN\TEXT PLANE=0100
  119. \"
  120. You'll have to do the logo over!
  121. \WAIT RET -1 "                      PRESS <RETURN> TO CONTINUE..."
  122. \JUMP SET_LOGO
  123. \X BADSHOW\BLA #320,0,639,#322\LOC #320,0
  124. \BLA #320,0,639,#322\LOC #320,0\BEEP 129,52\CALL LOG_OFF\CALLM PR_LBL\TEXT PLANE=0100
  125. There was a problem displaying that image.  Be sure your drive, path, and filename are correct.
  126. \JUMP BAD_RTN
  127. \X BADFORGN\BLA #320,0,639,#322\LOC #320,0\TEXT PLANE=0100
  128. Your program did not run properly.  Be sure you specifed the drive, path, and filename correctly.
  129. \JUMP BAD_RTN\X DROP_OUT\IF LOGO_ACTV='Y'\MOVE 'Y' TO CHGD_LBL\ENDIF\CALL LOG_OFF\ON KEY F2\CLEAR PICS\JUMP SET_LOGO
  130. \X DROP_OUT_BYE\IF LOGO_ACTV='Y'\MOVE 'Y' TO CHGD_LBL\ENDIF\CALL LOG_OFF\ON KEY F2\CLEAR PICS\JUMP REDO_ALL
  131. \X LOG_OFF\MOVE 'N' TO LOGO_ACTV\MOVE ' ' TO #505\RETURN
  132.